library(ggplot2)
sink("mpg1.out")
pdf("mpg1.pdf")
p<-ggplot(mpg,aes(cty,hwy))
p1<-p+geom_point(aes(colour=factor(year),shape=factor(year),size=displ),alpha=0.6,position='jitter')
print(p1)
